home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / DUMPFILE.TSL < prev    next >
Encoding:
Text File  |  1995-08-08  |  1.6 KB  |  71 lines
  1. % -----------------------------------------------------------------------------
  2. % Dump raw datafile to screen                          *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : DUMPFILE.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 08 Aug 1995
  10. %  Latest revision  : 08 Aug 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Data/hex/loop example
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. Clearscreen
  17.  
  18. Window 1,1,80,3,1,0,23,23,27," File dump "
  19. WriteAStr 2,0,31," Esc to Abort "
  20. WriteAStr 28,1,23," DUMP OF TERMINAT.DAT "
  21. Window 1,4,80,25,6,0,14,14,27,""
  22.  
  23. :AgainPlease
  24.  
  25. Cursor 0
  26.  
  27. Open 1,"TERMINAT.DAT",0,0
  28.  
  29. Set Pos=0
  30.  
  31. Repeat
  32.   Set Line=LongToHex(Pos)+" - "
  33.   SetAttr 11
  34.   Print Line
  35.   Set Line=Read(1,16)
  36.   Set Pos=Pos+16
  37.   Set NewLine=""
  38.   For Y,1,Length(Line),1
  39.     Set NewLine=NewLine+ByteToHex(Ord(Copy(Line,Y,1)))+" "
  40.   Next
  41.   SetAttr 3
  42.   Print BlankAfter(NewLine,48)
  43.   Set NewLine=" - "
  44.   For Y,1,Length(Line),1
  45.     Set B=Ord(Copy(Line,Y,1))
  46.     If B<32
  47.       Set NewLine=NewLine+"."
  48.     Else
  49.       Set NewLine=NewLine+Chr(B)
  50.     Endif
  51.   Next
  52.   SetAttr 14
  53.   PrintLn NewLine
  54. Until Eof(1) | (Keypressed=1)
  55.  
  56. Close 1
  57.  
  58. Window 26,8,54,10,1,0,23,23,27," Make a decision "
  59. WriteStr 2,1,"Press RETURN to try again"
  60. Set Key=GetKey
  61. RemoveWindow
  62.  
  63. If Key=13
  64.   FillBlock 1,5,80,20,7," "
  65.   Goto AgainPlease
  66. Endif
  67.  
  68. RemoveWindow
  69. RemoveWindow
  70.  
  71.